home *** CD-ROM | disk | FTP | other *** search
/ Megahits 5 / Megahits 5 (1994)(GTI - Rhein-Main-Soft)(DE)(Disc 2 of 2)[!].iso / archive / conv / djpeggui.lha / djpegGUI / Install-djpegGUI < prev    next >
Text File  |  1993-07-25  |  7KB  |  258 lines
  1. ;---------------------------------------
  2. ; $VER: Install-djpegGUI 37.1 (25/07/93)
  3. ;---------------------------------------
  4.  
  5. (transcript "djpegGUI Installation by Geoff Seeley")
  6.  
  7. (set @default-dest "")
  8.  
  9. ;----------------
  10. ; Setup defaults
  11. ;----------------
  12.  
  13. (set guidir   "Work:") ; default program dir
  14. (set docdir   "Work:") ; default docs dir
  15. (set djpegdir "Work:") ; default djpeg path
  16. (set tempdir  "Work:") ;
  17. (set tempdir2 "Work:") ;
  18.  
  19. (set doctype  0)       ; default AmigaGuide docs
  20. (set dotool   0)       ; default don't set tool type
  21.  
  22. ;-----------
  23. ; Tooltypes
  24. ;-----------
  25.  
  26. (set djpegtool "DJPEGPATH")    ; path to djpeg
  27. (set helptool  "HELP")          ; path to amigaguide docs
  28. (set wintool   "WINDOW")        ; window placement
  29.  
  30. ;-------
  31. ; Icons
  32. ;-------
  33.  
  34. (set appname   "djpegGUI")
  35.  
  36. ;-----------
  37. ; Doc types
  38. ;-----------
  39.  
  40. (set amigaguide "AmigaGuide© Documentation")
  41. (set ascii      "ASCII Documentation")
  42. (set djpegdoc   "djpeg manual page")
  43.  
  44. (complete 0)
  45.  
  46. ;-------------------------------------------------------------
  47. ; Get user's preferred installation directory for the program
  48. ;-------------------------------------------------------------
  49.  
  50. (set guidir 
  51.    (askdir (prompt "Where would you like to put the djpegGUI application?")
  52.    (help "djpegGUI will be installed in the directory that you "
  53.          "choose. A good place would be where you keep your "
  54.      "other graphics programs.\n\n"
  55.      @askdir-help)
  56.    (default guidir)))
  57.  
  58. ;---------------------------------------------------------
  59. ; Copy the program and icon (checking for older versions)
  60. ;---------------------------------------------------------
  61.  
  62. (copylib (source "djpegGUI")
  63.    (dest guidir)
  64.    (prompt "About to copy djpegGUI")
  65.    (help @copylib-help)
  66.    (infos)
  67.    (confirm))
  68.  
  69. (complete 25)
  70.  
  71. ;---------------------------------------------------
  72. ; Ask user which documentation they want to install
  73. ;---------------------------------------------------
  74.  
  75. (set doctype 
  76.    (askoptions (prompt "Select the type of documentation you wish to install"
  77.    (help amigaguide " - Documentation suitable for viewing with AmigaGuide©.\n"
  78.                     "\n"
  79.          ascii      " - Documentation suitable for viewing with More.\n"
  80.                     "\n"
  81.          djpegdoc   " - Documentation for the djpeg command line program.\n\n"
  82.      @askoptions-help)
  83.    (choices amigaguide ascii djpegdoc)
  84.    (default -1))))
  85.  
  86. ;-------------------------------------------------------------------
  87. ; Get user's preferred installation directory for the documentation
  88. ;-------------------------------------------------------------------
  89.  
  90. (if (> doctype 0)
  91.    (set docdir
  92.     (askdir (prompt "Where would you like to put the djpegGUI documentation?")
  93.     (help "The djpegGUI documentation will be installed in the directory "
  94.          "you choose. (All files selected)\n\n"
  95.      @askdir-help)
  96.     (default docdir))
  97.    )
  98. )
  99.  
  100. ;------------------------
  101. ; Copy the documentation
  102. ;------------------------
  103.  
  104. (if (IN doctype 0)
  105.    (
  106.       ;----------------------
  107.       ; Copy AmigaGuide docs
  108.       ;----------------------
  109.  
  110.       (copylib (source "djpegGUI.guide") (dest docdir)
  111.          (prompt "About to copy djpegGUI.guide")
  112.          (help @copylib-help)
  113.          (infos)
  114.          (confirm)
  115.       )
  116.  
  117.       (set tempdir  (tackon guidir appname))
  118.       (set tempdir2 (tackon docdir "djpegGUI.guide"))
  119.  
  120.       ;----------------------
  121.       ; Set tooltype to docs
  122.       ;----------------------
  123.  
  124.       (tooltype (prompt "Setting " helptool " tooltype")
  125.           (help "The HELP tool type specifies the path to the AmigaGuide© file.")
  126.           (dest tempdir)
  127.           (settooltype helptool tempdir2)
  128.           (noposition)
  129.           (confirm)
  130.       )
  131.    )
  132. )
  133.  
  134. (if (IN doctype 1)
  135.    ( 
  136.       ;-------------------
  137.       ; Copy regular docs
  138.       ;-------------------
  139.  
  140.       (copylib (source "djpegGUI.doc") (dest docdir)
  141.          (prompt "About to copy djpegGUI.doc")
  142.          (help @copylib-help)
  143.          (infos)
  144.          (confirm)
  145.       )
  146.    )
  147. )
  148.  
  149. (complete 50)
  150.  
  151. (if (IN doctype 2)
  152.    (
  153.       ;---------------------
  154.       ; Copy djpeg man page
  155.       ;---------------------
  156.  
  157.       (copyfiles (source "djpeg.man") (dest docdir)
  158.          (prompt "About to copy djpeg.man")
  159.          (help "Documentation for the djpeg command line program.\n\n"
  160.             @copyfiles-help)
  161.          (infos)
  162.          (confirm)
  163.       )
  164.    )
  165. )
  166.  
  167. (complete 75)
  168.  
  169. ;---------------------------
  170. ; Install djpeg program
  171. ;---------------------------
  172.  
  173. (set dodjpeg (askbool (prompt "Should I install the \"djpeg\" program?")
  174.     (help "The \"djpeg\" command line program will be copied to the "
  175.           "directory you specify. If you already have \"djpeg\" "
  176.               "installed, you may skip this part.\n\n"
  177.           @askbool-help)
  178.     (default 1))
  179. )
  180.  
  181. (complete 90)
  182.  
  183. (if (= 1 dodjpeg)
  184.    (
  185.       ;-------------------------
  186.       ; Get directory for djpeg
  187.       ;-------------------------
  188.  
  189.       (set djpegdir (askdir (prompt "Select a directory to install \"djpeg\" in")
  190.          (help "Select the directory you would like to install the \"djpeg\" command line program in."
  191.             "\n\n"
  192.             @askdir-help)
  193.          (default djpegdir))
  194.       )
  195.       ;--------------
  196.       ; Copy "djpeg"
  197.       ;--------------
  198.  
  199.       (copyfiles (source "djpeg") (dest djpegdir)
  200.          (prompt "About to copy \"djpeg\"")
  201.          (help @copyfiles-help)
  202.          (infos)
  203.          (confirm)
  204.       )
  205.       ;--------------
  206.       ; Set tooltype
  207.       ;--------------
  208.  
  209.       (set tempdir  (tackon guidir appname))
  210.  
  211.       (tooltype (prompt "Setting " djpegtool " tooltype")
  212.          (help "The DJPEGPATH tooltype specifies the path to the djpeg "
  213.             "command line program.")
  214.      (dest tempdir)
  215.      (settooltype djpegtool djpegdir)
  216.          (noposition)
  217.          (confirm)
  218.       )
  219.    ) ; else
  220.    (
  221.       (set dopath (askbool (prompt "Would you like to specify a path to the \"djpeg\" program?")
  222.     (help "The \"djpeg\" command line program must either be in your "
  223.           "current Workbench path, or you must specify the path by "
  224.               "setting the DJPEGPATH tooltype.\n\n"
  225.           @askbool-help)
  226.     (default 1))
  227.       )
  228.       
  229.       (if (= 1 dopath)
  230.          (
  231.             ;-------------------
  232.             ; Get path to djpeg
  233.             ;-------------------
  234.  
  235.             (set djpegdir (askdir (prompt "Select path to \"djpeg\":")
  236.                (help "Select the full path to the \"djpeg\" command line program."
  237.                      "\n\n"
  238.                  @askdir-help)
  239.             (default djpegdir))
  240.             )
  241.  
  242.             (set tempdir  (tackon guidir appname))
  243.  
  244.             (tooltype (prompt "Setting " djpegtool " tooltype")
  245.                (help "The DJPEGPATH tooltype specifies the path to the djpeg "
  246.                      "command line program.")
  247.            (dest tempdir)
  248.            (settooltype djpegtool djpegdir)
  249.                (noposition)
  250.                (confirm)
  251.             )
  252.          )
  253.       )
  254.    )
  255. )
  256.  
  257. (complete 100)
  258.